﻿

Public Class preambulo


    Public Shared _ano As Integer
    Public Shared _idAutoridade As Integer
    Private Shared _naturezaDelito As String
    Public Shared _dataAcionamento As DateTime
    Public Shared _dataRegistro As DateTime
    Public Shared _dataExame As DateTime
    Public Shared _dataEntrada As DateTime
    Public Shared _localExame As String
    Public Shared _requisicao As String
    Public Shared _referencia As String
    Public Shared _cmbAutor As String
    Public Shared _autor As String
    Public Shared _vitima As String
    Public Shared _idDestinoLaudo As Integer
    Public Shared _idPerito As Integer



    Sub New()
        _naturezaDelito = Nothing
        _ano = Nothing
        _idAutoridade = Nothing
        _naturezaDelito = Nothing
        _dataAcionamento = Nothing
        _dataRegistro = Nothing
        _dataExame = Nothing
        _localExame = Nothing
        _requisicao = Nothing
        _referencia = Nothing
        _cmbAutor = Nothing
        _autor = Nothing
        _vitima = Nothing
        _idDestinoLaudo = Nothing
        _idPerito = Nothing
    End Sub

    Public Shared Property DATAENTRADA() As String
        Get
            Return _dataEntrada
        End Get
        Set(ByVal value As String)
            _dataEntrada = value
        End Set
    End Property

    Public Shared Property ANO() As Integer
        Get
            Return _ano
        End Get
        Set(ByVal value As Integer)
            _ano = value
        End Set
    End Property

    Public Shared Property IDAUTORIDADE() As Integer
        Get
            Return _idAutoridade
        End Get
        Set(ByVal value As Integer)
            _idAutoridade = value
        End Set
    End Property

    Public Shared Property NATUREZADELITO() As String
        Get
            Return _naturezaDelito
        End Get
        Set(ByVal value As String)
            _naturezaDelito = value
        End Set
    End Property

    Public Shared Property DATAACIONAMENTO() As DateTime
        Get
            Return _dataAcionamento
        End Get
        Set(ByVal value As DateTime)
            _dataAcionamento = value
        End Set
    End Property

    Public Shared Property DATAREGISTRO() As DateTime
        Get
            Return _dataRegistro
        End Get
        Set(ByVal value As DateTime)
            _dataRegistro = value
        End Set
    End Property

    Public Shared Property DATAEXAME() As DateTime
        Get
            Return _dataExame
        End Get
        Set(ByVal value As DateTime)
            _dataExame = value
        End Set
    End Property

    Public Shared Property LOCALEXAME() As String
        Get
            Return _localExame
        End Get
        Set(ByVal value As String)
            _localExame = value
        End Set
    End Property



    Public Shared Property REQUISICAO() As String
        Get
            Return _requisicao
        End Get
        Set(ByVal value As String)
            _requisicao = value
        End Set
    End Property
    Public Shared Property REFERENCIA() As String
        Get
            Return _referencia
        End Get
        Set(ByVal value As String)
            _referencia = value
        End Set
    End Property

    Public Shared Property CMBAUTOR() As String
        Get
            Return _cmbAutor
        End Get
        Set(ByVal value As String)
            _cmbAutor = value
        End Set
    End Property

    Public Shared Property AUTOR() As String
        Get
            Return _autor
        End Get
        Set(ByVal value As String)
            _autor = value
        End Set
    End Property

    Public Shared Property VITIMA() As String
        Get
            Return _vitima
        End Get
        Set(ByVal value As String)
            _vitima = value
        End Set
    End Property


    Public Shared Property IDDESTINOLAUDO() As String
        Get
            Return _idDestinoLaudo
        End Get
        Set(ByVal value As String)
            _idDestinoLaudo = value
        End Set
    End Property

    Public Shared Property IDPERITO() As String
        Get
            Return _idPerito
        End Get
        Set(ByVal value As String)
            _idPerito = value
        End Set
    End Property
End Class


